home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / IEditor / ARexx / Ridge20.ie < prev    next >
Encoding:
Text File  |  1997-06-17  |  470 b   |  42 lines
  1. /*
  2.     Ridge20
  3.     Draw a faked "Ridge" box, compatible with kickstart 2.0
  4. */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. SIGNAL ON ERROR
  9.  
  10. ADDRESS 'IEDITOR.1'
  11.  
  12.  
  13. /* Ask the user to select the box... */
  14.  
  15. 'GETBOX'
  16. bevel = result
  17.  
  18.  
  19.  
  20. /*  Get the data we need  */
  21.  
  22. 'GETBOXATTR' bevel bx
  23.  
  24.  
  25. /*  Create a new box  */
  26.  
  27. 'ADDBOX' bx.leftedge+2 bx.topedge+1 bx.width-4 bx.height-2 1
  28. newbox = result
  29.  
  30.  
  31. if ~bx.recessed then 'SETBOXATTR' newbox 'RECESSED'
  32.  
  33.  
  34. EXIT
  35.  
  36.  
  37. ERROR:
  38.  
  39. say 'Error' RC 'on line' SIGL
  40.  
  41. EXIT RC
  42.